﻿Imports Tohto.Web.BLL
Imports Tohto.Base.Entity

Public Class RP0030P01

    Public Function printdoc(ByVal strLoginid As String, _
                             ByVal strKoji_no As String, _
                             ByVal strMitumori_no As String, _
                             ByVal strHacchu_gyosha_cd As String, _
                             ByVal strKagi_hacchu_no As String, _
                             ByRef erroinfo As PLSQLErrorInfo) As DataTable
        Dim RP0030B1 As New RP0030B01

        'I_VC_KOJI_NO=工事No.
        'I_NM_TEHAI_NO=手配No.
        'I_NM_ROW_NO=行No.
        Dim retDs As DataSet = RP0030B1.Fecth_List(strLoginid, _
                                                   strKoji_no, _
                                                   strMitumori_no, _
                                                   strHacchu_gyosha_cd, _
                                                   strKagi_hacchu_no, _
                                                   erroinfo)
        Dim HACCHU As DataTable = retDs.Tables("HACCHU")

        Return HACCHU

        'Dim rp0030 As New Reports.RP0030R01

        'Dim dt_rpt As New RP0030P01

        'Dim scmMain As ToolkitScriptManager = DirectCast(DirectCast(Me.Master, MainMaster).FindControl("scmMain"), ToolkitScriptManager)
        'Dim needPrint As HiddenField = DirectCast(DirectCast(Me.Master, MainMaster).FindControl("hidNeedPrint"), HiddenField)
        'Call scmMain.RegisterDataItem(needPrint, "true")

        'rp0030.DataSource = dt_rpt.printdoc("55", "55", "55", "55", "55", errInfo)

        'Session.Add(ComConst.PRINT_PARA.REPORT_SOURCE, rp0030)
        'Session.Add(ComConst.PRINT_PARA.REPORT_NAME, M_PDF_NM)

    End Function
End Class

